home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1988 January
/
64er_Magazin_88-01_1988_Markt__Technik_de_Side_A.d64
/
verstecktes dir.
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
792b
|
31 lines
1 rem ****************************
2 rem * verstecktes directory *
3 rem * geschrieben 1987 von *
4 rem * raimund genes *
5 rem ****************************
10 print"[147] waehlen sie:"
20 print" 1=directory verstecken"
30 print" 2=directory sichtbar machen"
40 print" 3=abbruch"
50 geta$:ifa$=""then60
60 ifa$="1"then b=255:t$="verstecken":goto 100
70 ifa$="2"then b=0:t$="sichtbar machen":goto 100
80 ifa$="3"then end
90 goto50
100 print"[147] directory ";t$,"[146]"
110 print" druecken sie 'j' zum ausfuehren"
120 print" 'n' zum abbruch"
130 geta$:ifa$=""then130
140 ifa$="j"then 170
150 ifa$="n"then 10
160 goto130
170 open15,8,15,"i"
180 open4,8,4,"#"
190 print#15,"u1 4 0 18 1"
200 print#15,"b-p 4 0"
210 print#4,chr$(b)
220 print#15,"u2 4 0 18 1
230 [152]15,"i"
240 [160]4:[160]15
250 [153]" funktion ist ausgefuehrt"